;SPROG.TXT
;sous-programme (Fichier SPROG.txt)
	SPEED %1
	MOVE %0
	FINISH
	IF %2 == 0 THEN 20
	OPEN %3
	FINISH
	GOTO 30
20	CLOSE %3
	FINISH
30	RETURN
$